home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 1-2.iso
/
age2
/
AoE2demo.exe
/
1033
/
CABFILE
/
MSGAME.CAB
/
Data
/
gamedata.drs
/
Unnamed File 000006.bina
< prev
next >
Wrap
Text File
|
1999-10-01
|
4KB
|
214 lines
;for war war-galleys
;goal 2 0 = no problem; 2 1 = enemy warships!; 2 2 = we've won at sea!
;have we lost the ship war? Is it time to give up on boats?
;we need transport-ships
(defrule
(soldier-count >= fifteen-percent-pop)
(unit-type-count-total transport-ship < 2)
(can-train transport-ship)
=>
(train transport-ship)
)
(defrule
(soldier-count >= fifteen-percent-pop)
(unit-type-count-total transport-ship == 0)
(can-train-with-escrow transport-ship)
(not (can-train transport-ship) )
=>
(release-escrow wood)
(train transport-ship)
)
;start the run-through for military ships
(defrule
(goal make-warboat YES)
(current-age > dark-age)
(building-type-count dock > 0)
=>
(set-goal make-warboat NO)
)
(defrule
(current-age == feudal-age)
(or
(building-type-count-total blacksmith > 0)
(wood-amount > 300)
)
(nand
(goal upgrade-conflict NOTICE)
(gold-amount < 250)
)
=>
(set-goal make-warboat YES)
)
(defrule
(current-age == castle-age)
(or
(building-type-count-total castle > 0)
(or
(building-type-count-total university > 0)
(wood-amount > 300)
)
)
(nand
(goal upgrade-conflict NOTICE)
(gold-amount < 850)
)
=>
(set-goal make-warboat YES)
)
(defrule
(current-age == imperial-age)
=>
(set-goal make-warboat YES)
)
(defrule
(goal make-warboat YES)
(goal 2 2)
=>
(set-goal make-warboat NO)
)
;cannon-galleons
(defrule
(warboat-count > 2)
(can-train cannon-galleon-line)
(unit-type-count cannon-galleon-line < ten-percent-pop)
(difficulty <= hard)
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < ten-percent-pop)
)
=>
(train cannon-galleon-line)
(set-goal make-fire-boat YES)
)
(defrule
(warboat-count > 2)
(unit-type-count cannon-galleon-line < five-percent-pop)
(difficulty <= hard)
(can-train-with-escrow cannon-galleon-line)
(not (can-train cannon-galleon-line) )
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < ten-percent-pop)
)
=>
(release-escrow wood)
(release-escrow gold)
(train cannon-galleon-line)
(set-goal make-fire-boat YES)
)
#load-if-defined VIKING-CIV
;longboats
(defrule
(goal make-warboat YES)
(current-age == castle-age)
(can-train longboat)
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < five-percent-pop)
)
=>
(train longboat)
(set-goal make-fire-boat YES)
)
#end-if
;demolition-ships
(defrule
(warboat-count < five-percent-pop)
(unit-type-count-total demolition-ship-line == 0)
(can-train demolition-ship-line)
(not (goal 2 2) )
=>
(train demolition-ship-line)
)
;fire-ships
(defrule
(warboat-count < five-percent-pop)
(current-age == castle-age)
(can-train fire-ship)
(not (goal 2 2) )
=>
(train fire-ship)
(set-goal make-fire-boat NO)
)
(defrule
(goal make-warboat YES)
(goal make-fire-boat YES)
(current-age == castle-age)
(can-train fire-ship)
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < five-percent-pop)
)
=>
(train fire-ship)
(set-goal make-fire-boat NO)
)
(defrule
(goal make-warboat YES)
(goal make-fire-boat YES)
(current-age == imperial-age)
(can-train fire-ship-line)
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < five-percent-pop)
)
=>
(train fire-ship-line)
(set-goal make-fire-boat NO)
)
;galleys
(defrule
(warboat-count < five-percent-pop)
(can-train galley-line)
(not (unit-available longboat-line) )
(not (goal 2 2) )
=>
(train galley-line)
(set-goal make-fire-boat YES)
)
(defrule
(goal make-warboat YES)
(can-train galley-line)
(not (unit-available longboat-line) )
(or
(and
(not (goal 2 2) )
(warboat-count < fifteen-percent-pop)
)
(warboat-count < five-percent-pop)
)
=>
(train galley-line)
(set-goal make-fire-boat YES)
)